#!/usr/bin/perl
use utf8;

@names = qw{fred betty barney dino wilma pebbles bamm-namm};
chomp( $index = <STDIN> );
print @names[$index-1], "\n";